object RichPreviewForm: TRichPreviewForm Tag = 100 Left = 479 Top = 176 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Print Preview (Formatting)' ClientHeight = 327 ClientWidth = 416 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter Visible = True OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object Label5: TLabel Left = 0 Top = 3 Width = 5 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Panel1: TPanel Left = -3 Top = 256 Width = 412 Height = 71 TabOrder = 0 object ArrowButton1: TArrowButton Tag = 107 Left = 69 Top = 33 Width = 33 Height = 33 Hint = 'Showing previous pages [PgDn]' ButtonColor = clTeal Direction = arwDOWN ParentShowHint = False ShowHint = True OnClick = ArrowButton1Click end object ArrowButton2: TArrowButton Tag = 104 Left = -1 Top = 33 Width = 33 Height = 33 Hint = 'Showing next pages [PgUp]' ButtonColor = clTeal Direction = arwUP ParentShowHint = False ShowHint = True OnClick = ArrowButton2Click end object Label1: TLabel Tag = 105 Left = 32 Top = 35 Width = 32 Height = 13 Caption = 'NEXT ' end object Bevel1: TBevel Left = 65 Top = 29 Width = 2 Height = 49 Shape = bsLeftLine Style = bsRaised end object Label2: TLabel Tag = 108 Left = 101 Top = 36 Width = 55 Height = 13 Caption = 'PREVIOUS' end object Bevel2: TBevel Left = 158 Top = -5 Width = 1 Height = 80 Shape = bsLeftLine Style = bsRaised end object SpeedButton1: TSpeedButton Tag = 112 Left = 160 Top = 8 Width = 62 Height = 25 Hint = 'Printing of selection from document ['#39'P'#39' key]' Caption = '&Printing' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object Bevel3: TBevel Left = 287 Top = -5 Width = 5 Height = 77 Shape = bsLeftLine Style = bsRaised end object Bevel5: TBevel Left = 1 Top = 29 Width = 157 Height = 1 Shape = bsTopLine Style = bsRaised end object Label4: TLabel Tag = 102 Left = 11 Top = 8 Width = 66 Height = 13 Caption = 'Page number:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton2: TSpeedButton Tag = 110 Left = 160 Top = 40 Width = 62 Height = 25 Hint = 'Larger zoom ['#39'L'#39' key]' Caption = '&Larger' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33033333333333333F7F3333333333333000333333333333F777333333333333 000333333333333F777333333333333000333333333333F77733333333333300 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3 33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773 3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703 33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773 333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333 333333773FF77333333333370007333333333333777333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Tag = 111 Left = 224 Top = 40 Width = 61 Height = 25 Hint = 'Smaller zoom ['#39'S'#39' key]' Caption = '&Smaller' Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33033333333333333F7F3333333333333000333333333333F777333333333333 000333333333333F777333333333333000333333333333F77733333333333300 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3 333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773 333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703 33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773 333337F3333337F333333078F8F870333333373FF333F7333333330777770333 333333773FF77333333333370007333333333333777333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object Label6: TLabel Tag = 114 Left = 293 Top = 30 Width = 53 Height = 13 Caption = 'Zoom step:' end object Label7: TLabel Tag = 116 Left = 354 Top = 8 Width = 35 Height = 16 Hint = 'Actual size of the zoom (double click for a value of one)' AutoSize = False Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False ParentShowHint = False ShowHint = True OnDblClick = Label7DblClick end object Label8: TLabel Tag = 113 Left = 293 Top = 10 Width = 60 Height = 13 Caption = 'Zoom factor:' end object Label3: TLabel Tag = 106 Left = 32 Top = 51 Width = 24 Height = 13 Caption = 'page' end object Label9: TLabel Tag = 109 Left = 101 Top = 51 Width = 24 Height = 13 Caption = 'page' end object Label10: TLabel Tag = 102 Left = 128 Top = 8 Width = 3 Height = 13 Hint = 'Total number of pages' Color = clYellow ParentColor = False ParentShowHint = False ShowHint = True end object BitBtn1: TBitBtn Tag = 115 Left = 224 Top = 8 Width = 60 Height = 25 Hint = 'Closing this preview' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BitBtn1Click Kind = bkClose end object MaskEdit1: TMaskEdit Tag = 117 Left = 354 Top = 25 Width = 35 Height = 21 Hint = 'Input step size zooming' EditMask = '9.999;1;_' MaxLength = 5 ParentShowHint = False ShowHint = True TabOrder = 1 Text = '0.100' OnChange = MaskEdit1Change end object CheckBox1: TCheckBox Left = 293 Top = 51 Width = 97 Height = 17 Hint = 'Four pages on one window' Caption = 'Compact' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = CheckBox1Click end end object ScrollBox1: TScrollBox Left = 20 Top = 20 Width = 395 Height = 234 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True TabOrder = 1 object Image1: TImage Tag = 101 Left = 0 Top = 0 Width = 391 Height = 230 Align = alClient ParentShowHint = False ShowHint = True OnMouseDown = Image1MouseDown end end object Edit1: TEdit Left = 76 Top = 260 Width = 37 Height = 21 Hint = 'Number of current page (can be changed manually) ' ParentShowHint = False ShowHint = True TabOrder = 2 OnKeyUp = Edit1KeyUp end object PrintDialog1: TPrintDialog Options = [poPageNums, poWarning] Left = 3 Top = 6 end end